COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	VARIABLE S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,
C00004 ENDMK
C⊗;
VARIABLE S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,
NN,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14;
N1←S1←N2←0; 
S2←100/13;S3←200/13;S4←300/13;S5←400/13;S6←500/13;S7←600/13;
S8←700/13;S9←800/13;S10←900/13;S11←1000/13;S12←1100/13;
S13←1200/13;S14←100;
N3←N4←.1; N5←N6←.2; N7←N8←.3; N9←N10←.4; N11←N12←.5; N13←N14←1;

FUNCTION DOIT(Z,S,N1,IX,ARRAY FUNC);
BEGIN  VARIABLE DIF,LN,W,X;
 IX←INT(S*5.12); DIF←N1-NN; LN←IX-Z; W←0;
<PRINT Z,IX,DIF,LN; 
PRINT "          ";
FOR X←Z STEP 1 UNTIL IX DO
BEGIN   FUNC(X)←NN+DIF*W/LN; PRINT X,FUNC(X); W←W+1;  END;   END;

FUNCTION STPS(ARRAY FUNC);
BEGIN  ARRAY SX(14),NX(14);
VARIABLE J,Z,IX;  IX←0;
SX(0)←S1;SX(1)←S2;SX(2)←S3;SX(3)←S4;SX(4)←S5;SX(5)←S6;
SX(10)←S11;SX(11)←S12;SX(12)←S13;SX(13)←S14;SX(9)←S10;
SX(6)←S7;SX(7)←S8;SX(8)←S9;
NX(0)←N1;NX(1)←N2;NX(2)←N3;NX(3)←N4;NX(4)←N5;NX(5)←N6;
NX(10)←N11;NX(11)←N12;NX(12)←N13;)←N14;NX(9)←N10;
NX(6)←N7;NX(7)←N8;NX(8)←N9;
< PRINT " SEG ARRAY  ";
 Z←INT(SX(0)*5.12); 
FOR J←1 STEP 1 UNTIL 13 DO BEGIN
      NN←NX(J-1);
 DOIT(Z,SX(J),NX(J),IX,FUNC);   Z←IX+1;
 END;
 END;
STPS(F6);